MAY 1982 



TRS-80" 
NEWSLETTER 

SOUTH BAY - USERS GROUP 



FROM MIC 
TO 

MOZfiRT 



'y^/^'/'y. 



C0^ 



'/. 




South Bay ntS-tl OB«rB Groap 



Pag« - CootantB 



1. Mot* on SBDG-Sli Entering application 

2. A Control Utility For Your KX~S9 

A. Husic-Lovers, CoapoB«ra And Musicians — Solutions! 
7. Using NEWDOS/81 V.2 Dynamic Herge And Sort Options 
II. The Parallel Prlntec Port 



leetings are held the 3rd Tuesday of each nonth In the north 
%m»t corner of Dysans ' building ati 

5401 Patrick Henry Drive 
Time - 7:15 to 10i3l PN Santa Clara, Ca 

Hay IB, June 15, July 20 

Peaturesi 1} Phil coffnan our h.c. has arranged soae special 
guest speakers. 
2) Open Rap session. 



•••• Yoar Steering Cooalttee followa •••• 

SBUG-8B 
Discussion Leaders: Usernane Phone 



Phlll Coffaan (CAP) (408) 997-1247 

Hike NcHenry (HCHENKY) (408) 245-4704 

Gerry HcKee (GHCKEE) (408) 926-4163 

Sabri Kawash (SABRI] (408) 732-5484 

Bill Bicherson (OPTOBILL) (408) 257-8267 

Treasurer; 

Larry Gunderson (TREAS) (408) 259-5349 

Revsletter Editor i 

Robert Bycd (EDITOR) (418) 732-6775 
Librarians! 

(disc) Pete Huntsinger (PETE) (408) 227-7125 
(tape) Bob Brown (SAMBROHN) (408) 379-2774 
(doc) Ron Carpenter (RON) (415) 726-3487 

If the need arises feel free to give one of us a call. 

Note on SBUG-80 Host Systeai 

BEt Entering an application for an account. 

Apparently some people have been having sone probleas with 
'entering' an application for an account on SBUG~80. So, I will go 
over soae of the basic guide lines that one should follow in order 
for the application to be accepted as quick as possible. First of 
all, the 'USERNAME' and "PASSWORD' should be no aore than 8 
Characters, upper CASE, and NO SPACES. A usernaae is not your 
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first naael [Eg. Hy usernaine Is BREWEB for Eric Brewer.) The 
applicant will also have to enter their full nane, current home 
addres, city, state, and zip code. AIbo, one will be asked for 
their first name. This is used by the system when malting any 
queries from the user. (NBi The "DSERNAME* can be something 
unusual to. IE. ZAPPEB, etc...) The phone number for the system is 
749-0810. If you have any further questions, pleaBe, feel free to 
contact either Robert Byrd (EDITOR), or me, Eric Brewer [BREWER). 



A COWTBOL DTZLITT FOB TOOK HX-M 

When using the HX-8fl with its GRAPTRAX features, I got tired of 
having to continually go to BASIC and look up control characters to 
operate the MX-SB and change the print parameters. I solved this 
problem with this utility program. 

I chose the options that I most often wanted to use when I wrote 
this program. In addition, I have provided a way to reset the 
printer and clear all options. You do have to be aware, however, 
that there are some options that are not compatible with each 
other, but this shouldn't present a problem. 

When assenbling this program, you can pick your own origin based on 
your own system and needs. I picked F0fl0B which keeps it below any 
high address driver I night have and still puts it out of the way 
of most programs I might be working with. If you want to put the 
program in with DEBUG or another monitor, you should be able to 
start at any address, since the program has only relative jumps in 
it. I have saved it as PRINTER/CMD and put it on my operating 
system disk. When I use it with BASIC, I have vectored the LINE 
command from within BASIC to access the routine. I will leave it 
to you to work that out for yourself if you wish to do this and 
perhaps poke it into memory from BASIC. 

The program uses ROH calls, but might be compatible with Model III 
and its ROH calls. If not, it should be easy for you to look up 
the equivalent Hodel III addresses and substitute them when you 
assemble the program. In adapting the program for Model III, you 
will have to handle the sending and receiving of information to the 
printer. I am told that the peripherals on the Hodel III are 
addressed as ports and if this is true, you will have to take care 
of that in the code that addresses the printer memory address for 
the Model I in the program. 

I hope that you will find it as enjoyable as I do to just type 
"PRINTER" and be able to preset the HX-B0 for the modes you want. 
If you have forgotten to turn on the printer, the program will even 
remind you to do that and let you escape if you wish. 

For those who wish to use the program "as is" I have given a copy 
of it to the disk librarian and you can get it that way if you 
wish. 



Ian Webb 
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Fill 

FI0B 

F803 
F005 
F008 
F00B 
F00D 
F00F 
F012 
F014 
FB16 
F018 
P01B 
F01E 
F021 
F023 
F025 
P02e 
P02B 
F04B 
F04E 
F051 

F054 
F057 
F059 
F05C 
F05F 
F062 
P«64 
P067 
F06A 
F06D 
Fe6F 
P072 



CDC901 

3G00 

32E837 

CD2Bfl0 

FE46 

2816 

3AEa37 

B6F0 

FE30 

2833 

212BF0 

11B03C 

012B00 

EDB0 

ieE3 

CDC901 

C32D40 

54 

CDC901 

21A5P0 

11403C 

013700 

EDB0 

21DCF0 

11803c 

013700 

EDBI 

2192F0 

01A4P0 

CD4900 

FE46 

CA2D40 

160A 



PI74 15 

PI75 2aED 
P077 EDAl 

F079 2BF9 
F07B C5 

PI7C CD3A03 
PI7P 3E1B 
P0B1 CD3B00 
F0e4 CI 
P085 C5 



00100 




****•• 






§1110 


t PHOGRAH TO 


SET HX-80 N 


ITH GRAFTRAX TO PRINT MODES 


00120 


.* 


PRINTER/CMD 


IAN WEBB 3/13/82 • 


00130 




mum** 






00140 










00150 




ORG 


0F000B 


(STARTS HERE — OSB YOUR OWN 
/ORIGIN 


00160 




CALL 


1C9B 


(CLEAR SCREEN 


00170 




LD 


A.0 


f ZEROS IN PRINTER ADDR 


B0180 




LD 


(37B8B), 


1^ 


00190 


START I 


CALL 


002BH 


I KEYBOARD IHPDT SCAN 


00200 




CP 


ipi 


lis IT F7 


00210 




JR 


Z,EXIT 


fYESr EXIT 


00221 




LD 


A,(37B8B 


iGET PRINTER ADDRESS INFO 


B0230 




AND 


0F0B 


rKASR TO GET HIGH 4 BITS 


B0240 




CP 


30H 


(PRINTER ON? 


00250 




JR 


Z,STRT 


fYES, GO AHEAD 


00260 




LD 


HL,NOPE 


;NOT ON PUT OUT MESSAGE 


00270 




LD 


DE,3C00H 


J FIRST VIDEO LINE 


00280 




LD 


BC,32D 


;NUHBER OF CHAR IN MESSAGE 


00291 




LDIR 




;POT MESSAGE ON CRT 


00300 




JR 


START 


7 LOOP BACK 


00310 


EXIT I 


CALL 


01C9B 


; CLEAR SCREEN 


00320 




JP 


402DB 


;EXIT TO DOS 


00330 


HOPE: 


DEFH 


•TURN ON 


PRINTER OR KEY F TO EXIT' 


00340 


BTRTi 


CALL 


01C9H 


; CLEARS SCREEN 


00350 




LD 


HL,HESS 


;MESSAGE ADDRESS 


0f36l 




LD 


DE,3C40H 


;MESS DESTINATION- 2ND CRT 
;LINE 


00370 




LD 


BC,55D 


I MESSAGE LENGTH 


00380 




LDIR 




I PUT MESS ON SCREEN 


00390 




LD 


HLfKESSl 


; SECOND MESSAGE LINE ADDR 


00400 




LD 


DE,3CB0H 


;3RD SCREEN LINE ADDR 


00410 




LD 


BC,55D 


/MESSAGE LENGTH 


00420 




LDIR 




(MOVE MESS TO SCREEN 


00430 


BEGIN I 


LD 


HL.TAB 


;ADDR OF LOOKUP TABLE 


00440 




LD 


BC,TAB3 


;ADDR OF KEY CODE TABLE + 1 


00450 


KBDi 


CALL 


0049B 


;GET INPUT 


00460 




CP 


•F' 


;DONE? 


00470 




JP 


Z,402DH 


jDONE GO TO DOS READY 


00480 




LD 


D,10D 


J INITIALIZE CTR - * KEY 
iPOSS + 1 


00490 


COHP: 


DEC 


D 


(STEP CTR 


00500 




JS 


ZrBEGIN 


;N0 MATCH AT ALL 


00510 




CPI 




(COMPARE, STEP HL DP, BC 
(DOWN 


00520 




JR 


NZ , COHP 


(NO HATCH 


00530 




POSB 


BC 


(MATCH I -SAVE BC-PTR TO 
(PRINT CODE 


00540 




CALL 


033AH 


(SCREEN DISPLAY 


00550 




LD 


A, IBB 


(ESCAPE CODE 


00560 




CALL 


003BB 


(TO PRINTER 


00570 




POP 


BC 


(GET BACK PTR CODE POINTER 


00580 




PDSH 


BC 


(SAVE AGAIN 



3 - 



Hay S2 



F086 flA 
FI87 CD3B00 
F08A CI 
F08B 0A 
P08C FB40 
F08B 28BB 
Fe90 1802 
F092 43 
F09B 3A 

0001 
F0A5 43 
E)NPBA5IZBD 
F0DC 44 

PER LINE T) 
FB00 



00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 

00680 
00690 



TAB: 
TABl 



TAB3; 
HESS: 



R)ESBT P)INISH' 
00700 HESSl: 

RS80 MODE 
00710 



LD A, (BC) ;PUT PRINT CODE IN A 

CALL 003BH ;T0 PRINTER 

POP BC I GET PRINT CODE AGAIN 

LD A, (BC) JPUT INTO A REG 

CP 'S' f IS IT A RESET? 

JR Z,STRT 7yBS, CLEAR SCREEN 

JR BEGIN jNO HATCH, GO BACK 

DEPM ■CXIERD87T';LOOKOP TABLE FOR KEYS 

DEFH ■ :10G9E4SP'fLOOKDP TABLE FOR PTR 

/CODES 
DEFS 1 I LABEL NO ON ADDR TABl + I 
DEFH 'OOHPRESSED X)PANDBD I)TALIC 
I SCREEN MESSAGE ON LINE 2 

DEPM •D)0UBLE STRIKE 8)LINES/IH 7)/72 
r SCREEN MESSAGE FOR OPTIONS 
END 0F000H 



**** NDSXC-LOTOtS, COHPOSBRS AMD KDSXCUUiS **** 
SALDTATIOHS I 

Bello there again, Eeaenber me? No? Well then let ne reintroduce 
myself. I'm the friendly TRS80 user who juet loves all those 
expensive peripherals for the TRS80 , but hates to dig into his 
pocket to spend the money for it. So what I end up doing is 
building my own. Perhaps most of you know me from my last article 
(Feb 82) entitled "The joy of joysticking". 

What am I up to now? Well, Mr Computerist, its time to turn that 
homely old TRS80 into a full fledged music synthesiser 1 Until now 
perhaps the only noise that came out of that silver and black box 
was a dull hum. With this Schematic and the software available in 
the Tape library you will be able to transform your TRS80, giving 
it powers of articulation it never dreamed it hadl Journey through 
the delicate melody of Dance of the Reed pipes by Tchaikovsky 
through the erratic harmony of Flight of the Bumble Bees, and into 
the Hajestic Tempo of Raiders of the Lost Arcl If you are a 
Bulletin Board user, how many times have you looked through the 
program listing available for download only to turn green with envy 
at the amount of files with the extention i /ORC. Your days of 
envy are over, its time to sing along with Tandyl 

Before I go on I would just like to say that this is not an exact 
duplicate of that 'other' synthesiser but will provide the same, 
exact results. You will need a copy of the music synthesiser 
program from the Tape library, a fairly good amplifier and about 
$21.00 worth of merchandise. The songs that run on this 
synthesiser will be available in the Tape library and are 100% 
compatible with the other synthesiser and vice versa. This 
synthesiser will give you Mono sound (sorry stereo lovers) and No 
percussion. Also, this project is somewhat more complicated than 
my other project (joystick). So If you don't have basic electronic 
experience I advise you against taking on this project. 

Now, my Hicro-Composer, it is time to raise the curtain on Music 
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syntheBia for the TRS-80 1 Here is a list of parts excluding the 
software and a amplifier! 

ITEK QUAN PRICE R/S » 

THE ICi 

74C374 1 S 2.00... 

IC socket 

IC socket - 20 pin 1 5 .59 .. .276-1991 

Capacitor 

2.2uf electrolytic 1 S .59. . .272-1420 

Capacitor 

.01uf disc 1 S .39. ..272-131 

Resistors 

22k 1/4 watt 5% 8 § .78. . .271-1339 

Resistors 

10k 1/4 watt 5% 8 S .78. ..271-1335 

Connector 

40-pin edge card 1 $ 4.95 .. .276-1558 

Plug cable 

Audio phono plug 1 $ 1.89 42-2371 

Data cable 

40-conductor ribbon 1 $ 6.95. . .278-771 

Box 

good-looking box 1 $ 2.50. . .270-220-3 

WOW, that seems like a lot of money I But just remember how much 
the 'other" synthesiser costsl You're actually saving quite a bit 
by doing it yourself. 

The first thing you will need to do is to locate the IC. You will 

not find this chip at Radio Shack, it is a special chip and it is 

hard to find. Also notice the "C" in the middle of the numbers, 

this is very importantl The IC can be obtained at JDR Hicrodevices 

which is located right next to the Radio Shack Computer Center on 

Bascomi 

1224 S. Bascom Av. 

You should definitely mount this assembly on a circuit board and 
the IC should be inserted in an IC socket (20 pin). But solder the 
socket EMPTY first, then build the rest of the board and THEN, 
after the board is all built, insert the IC. The reason for this 
is that the IC is VERY fragllel And soldering on or around it will 
cause definite djunage. 

Now start aaking the resistor connections. Notice figure 1 & 2. 

Figure 1 Is called a schematic diagram and is mainly for trouble 

shooting, but can be used for assembly. However, if you are a 

beginner at all this then I recommend you use the pictorial 
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diagram, figure 2. Remember, you should be soldering the resiBtors 
to the empty IC socket. After you have made the resistor 
connections, start making the capacitor connections. Notice that 
the 2.2uf capacitor is polariEed (it has a '-' and a "+" side). 
The positive (+) side connects to pin 20 of the IC and PIN 23 of 
the edge card connector (TRS80) , while negative (-) goes to ground. 
It should be noted that all ground connections go to PIN 29 of 
edge connector. The disc capacitor (,01) is not polarized so it 
does'nt jnatter which way it goes. 

Now to the HARD part of the assembly. As I said in my joystick 
article the Edge card connector assembly is the toughest part of 
the assembly. This is where you connect the appropriate IC pin 
number with the correct edge connector PIN number. Refer to 
figures 3 & 4 for this procedure. This procedure should be done 
SLOWLY and CAREFULLY and with patiencel With the lid open, insert 
and puncture the individual ribbon cable wires onto to the 
coordinating PIN "spiney" thing, then just close the lid. For more 
reference on this type of procedure see ray previous article in the 
Feb 82 issue of the SBUG newsletter. 

Next is the Sound connection. Connect the audio phono plug 
shielding to ground and the phono plug signal to pin 2. Next 
you'll need an amplifier (it doesn't need stereo) of some sort. 
Connect the phono plug into the Aux Input of the amplifier or any 
other input EXCEPT phono, tuner, or tape (speakers are ODTPOTs) . 

All you need to do now is to connect the 40 pin connector to the 

expansion port (for 16k TRS80S without expansion board) or the 
screen printer port (for 32k or 48k TRS80S with expansion board). 
Remember, all connections should be made with POWER OFFl After you 
have connected Synth80 up, turn your power on and observe the 
screen. NOTHING SHODLD HAPPEN. If you get any fluttering of the 
screen or anything, turn the power off IMMEDIATELY. If nothing did 
happen then all your connections should be all right. If anything 
weird happened then you should check your connections or maybe you 
connected it upside-down. Since this assembly is a little more 
complicated than the joystick conversion I am not offering to 
assemble it myself (1 don't have the time) but if you really just 
cant get it to work, bring it to the club and 111 take a look at 
it. 

If you have plugged it in and nothing went wrong then your ready 
for the software, available at the disk or tape library. Full 
documentation for entering and composing music is included. 



NoWf the only thing left to do is to start composingl 



Dave Fox 
DAVEFOX @ SBUG-80 
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Using HEHDOSSf V.2 Dynaalc Merge and Sort Options 

To lapiov* the PecCoraance of the Radio Shack Budget 

Management Piograa 

I Escantly started using the Radio Shack Budget Management PEogran 
to ocganlse ay personal finances. This pcogcaa consists of three 
■ajor eleaentst 1) TRAMS to enter check, deposit, charge and cash 
data, 2) EDIT to edit the data, and 3) REPORTS to print reports. 
To change froa one eleaent to the other it is necessary to save the 
data (which takes about 1 minute), run the desired program, and 
load the data again (another minute). I have eliminated the need 
to save and load the data each time by using the NEWDOS80 V.2 
dynamic merge basic enhancement which will overlay the desired 
program elements while retaining all of the variables in memory. 
It now only takes a few seconds to change from one of the programs 
to any of the others. 

I have also added some other features to the program to Increase 
Its speed and utility. The data entry in line 760 has been 
modified to prevent conaas from being entered since they mess-up 
the subsequent loading of the file. In line 55i5 a POKE 14312,7 is 
included to ring the printer bell (if you have one) If there is a 
data entry error. Also, a POKE 14305,1 in line 9400 will keep the 
drives from turning on and off during the loading of the files. 
Line 9010 has been changed so that the default save file name is 
the name of the last data file loaded. Type In a new name when you 
start a new monthl The modifications of lines 2301-3001 in REPORTS 
are only for Epson MX-e0 printers to give 132 colume/line and 84 
line/page output. 

For tai and budgeting purposes I wanted to add the feature of 
sumaarliing all of the checks in a sorted order with subtotals for 
each expense account at the end of the year. I have Included an 
option 6 in the REPORTS menu that will write a sorted flic of all 
checks and cash expenses to a file (filename/AID) . The Meta 
Technology AIDS3 data base system can be used to read these files 
(one for each month) and combine them into a single sorted file for 
the year. The NERGE3 subsystem can be used to combine 12 
individual sorted files Into a single sorted file with duplicate 
entrys deleted (outstanding checks get carried over from one month 
to the next in TRANS) . The CALCS3 or CALCS4 subsystems will read 
this file and print a report that lists the checks and cash 
expenses by account, dlscription and date, with subtotals foe each 
account. This is very handy at tax time. 

Mike McHenry 
MCHENRY e SBDG-80 

PROGRAM MODIFICATIONS 

Merge these lines with EDIT 

101 CLEAR(15000) tDEFINTI-NtDBFSTRX * INCREASE STORAGE FOB 48K 
lli Ml-99tH2-2iitM3«25tM4-20tH5-M4 
215 CMD*F",DBLBTB100i0-1003l 
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25B PRIHTTAB(15}"B) LOAD REPORTS 

■TAB(15)"9) load TRANS" 

27a IF(J-BORJ-B)THENPBINT"HAVE YOO SAVED YOUR DATA (Y/H)"; 

l6OSUB3IBiIPYN-BTHEH220EI.SEIFJ=8THENGOTO274ELSEE-99iGOSDB55e0 

274 IF J-8 GOTO 12000 ' LOAD REPORTS 

275 IF J-9 GOTO 11000 ' LOAD TRANS 

760 WS-INKEYSiIFWS='"THEN76 0ELSEIFW$»","THEN76e 

9010 IFDK-1THENPBINT"FILESPEC OF OUTPUT FILEiDEFAOLT FILESPEC- 

■; iPRINT BF$,' 

";!GOSOB75«:IFBS-"THENBS=BFS:PRINTlOPEH"0",DV,BStOHERRORGOTOBELSEPR 

INT I OPEN "0" , DV , B$ I ONERRORGOTO0 

9015 BF$-B$ 

9400 POKEIl,I2tPOKE14305,0tRETURN ' KEEPS DRIVES ON DURING LOAD 

9510 IFDK=1THENPRINT"FILESPEC OF INPUT FILEi 

■;!GOSUB750iBFS-BS:PRINTiOPEN'I',DV,BF$iONERRORGOTOB 

11000 CHD"P",DELETE10-10030 

11010 CHD"F",DELETE1200B-14000 

11020 HERGE'TRANS" 

11030 GOT0215 

12000 CMD"F', DELETE 10-11030 

12010 CHD"F",DELETE13000-14000 

12020 HERGE'REPORTS" 

12030 GOT0215 

13000 CHD"0",K2,C2%(l),Cl%(l},C3${l),C4(l),C5%(l),C6%(l)t RETURN 

14000 CMD"0",CK,C5%(1) ,C3S(1) ,C2%(1) ,C1%(1) ,C4C1) ,C6%(1) iRETUBN 

Merge these lines with TRANS 

100 CLEAR(15000} :DEFINTI-N:DEFSTRX 

110 Kl-99iH2-20B;H3-25iH4-20:H5<-K4 

215 CMD"F",DELETE11000-11030 

25B PHINTTAB(15)"8) LOAD REPORTS 

■TAB(15)'9) LOAD TRANS" 

270 IF(J-0ORJ-B)THENPHINT"HAVE YOU SAVED YOUR DATA (Y/N)"; 

:GOSUB300iIFYN-BTHEN220ELSEIFJ-8THENGOTO274ELSEE-99tGOSUB5500 

274 IF J-B GOTO 12000 

275 IF J-9 GOTO 11000 

760 W$-INKEY$iIFW$-""THEN760ELSEIFW$-","THEN76fl 

9010 IPDK-1THENPRINT"FILESPEC OF OUTPUT FILE:DEFADLT FILESPEC- 

■; iPRINT BF$," 

■liGO8DB7 50iIFBS-""THENB$-BFSiPRINTiOPEN'O",DV,BS:ONERRORGOTO0ELSEPR 

INTiOPEN"0",DV,B5iONERRORGOTOe 

9015 BF$<-B$ 

9400 POKEIl,l2iPOKEl4305,0]RETURN 

9510 IFDK-1THENPRINT"FILESPEC OP INPUT FILE: 

■ ; : G0SUB7 50 :BF$-B$ : PRINT : OPEN" I " , DV, BF$ : ONERRORGOTOe 

1000B CKD"F",DELETE10-9910 

10010 CHD"F",DELETE11000-14000 

10020 HERGE"EDIT" 

10030 GOT0215 

12000 CKD'P", DELETE 10-11030 

12010 CHD"F",DELETE130e0-14000 

12020 HERGE'REPORTS" 

12030 GOT0215 

13010 CIID"0",K2,C2%(1),C1%(1) ,C3$(l),C4(l),C5%(l),C6%{l)iRBTnRN 

14010 CHD-0',CK,CS%(l),C3$(l),C2%(l),Cl%(l],C4(l),C6%(l}iRETURN 
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Merge these lines with REPORTS 



l«l CLEAR(15BIB] iDBFIHTI-HiDEFSTRX 
110 Hl-99tH2-2«liH3-25iH4-2BiH5-H4 

121 X§-",":AD$-CHBS{25) iEL5-CHR$(30) :CUS-=CHB$(27) :BL$-CHR${29) 

215 CKD"P",DELETE120BB-1203B 

220 CLSiPRINTiPRINTTABdB) "BUDGET MANAGEMENT - REPORT 1.0":PRINT 

24B PRINTTAB(15) "B) STOP 

'TAB (15) '1) READ-IN MORE DATA 

"TAB(15)"2) REPORT 

■TAB(15)"3) LOAD EDIT 

"TAB(15)"4) LOAD TRANS 

"TAB|15)"5} SORT BY CATEGORY 

■TAB(15)"6) write TO AIDS FILE 

265 CK-K2 

280 ONJGOSDB95BB,20B8,lBBBB,llBBB,14BBB,7BBBtGOTO220 

275 REM THIS LIHE IS DELETED 

23B1 '**•*«****••«******** MOD FOR MXBB PRINTERS ONLY ********* 

23B5 IFPBEK(14312)<128TH£NLPRINTCHR$(1S)CHR$(27)CHB$(48) t 

GOT0233B<HOD FOR HXB0 PRINTER 132 CHAR/LINE 88 LINE/PAGE 

2400 IFPEEK (16 425) >84THENGOSUB243B tGOT0234B i ELSE236B 

2420 GOSDB243BiGOTO2040 

2430 FFt-8e-PEEK{16425) tFORIJ-lTOFFt iLPRINTiNEXTIJi 

POK816425,ltBETURN 

3000 POKEl6424,B8tPOKE16425,ltPG-0iCNT-0iEOD-0iKK-0iAB-B 

3B01 I******************************************************** 

4509 IFI0-2THENLPRINTiLPRINTTAB(25) j'TOTAL" "jQ 

ELSEPRINTiPRlNTTAB{25) ;"TOTAL= ' tQ 

6120 Q-Q+C4(KK) :LPRIHTDSINGF$ iCll (KX) )D2iD3|C$|C4 (KK) f 

ABS(A1%(C5%{KK))) i RETURN 

70BB AI$--#<t4 «««# % % t##l«.ll «##«" 

7B10 IQ%-INSTR(BF$,"/") t IFIQ%<>8THENFIS"LEFT$ (BF$, IQ%-1) + 

■/A1D"BLSEIQ%-INSTR(BF$, ■ I " } i IFIQ%<>0THENFlS-LEFT$ (BFS , IQ%-1) +"/AID" 

ELSEFI$-BF$+"/AID" 

7020 OPEN"O",2,FlSiONEBBORGOTO0 

7B25 J-BiCK-K2+K3iFORI-K2+lTOCKiJ-J+l:Cl%(I)"Bi 

C2I(I)-E1%(J) jC3$(I)-E2$(J):C4(I)-B3(J)iC5%{I)-E4%(J)iNEXTI 

7B27 GOSUB14BBB 

7930 FORI-lTOCKiPRINT#2,USIHGAI$lCl%(I)lC2%(I); 

C3$(I))C4{I)iABS(Alt(C5%(I))] tHEXTI 

7B4B CLOSE2:GOSUB135BBB:GOSUB13BB0 I RETURN 

94BB POKEIl,I2iPOKEl43B5,BtRETURN 

951B IFDK"lTHENLINEINPnT"FILESPEC OF INPUT FILE: 

■ JBFS :OPEN"I ■ ,DV,BFS lONERRORGOTOB 

10000 CMD"F",DELETE10-9910 

10B1B CMD"P",DELETE11BBB-14B00 

10020 KERGE'EDIT" 

10030 GOT0215 

11000 CMD"F-,DELBTE10-10030 

11010 CHD"F",DELETE1200B-14BBB 

11B20 MERGE'TRANS' 

11030 G0T0215 

13000 CMD"0",X2,C2%(1),C1%(1),C3${1),C4(1),C5%(1) ,C6» (1) iRETURN 

13500 CMD"0",CK,-C1%(1),C2I(1),C3$(1),C4(1),C5%(1) ,C6% (1) iRETDRN 

14000 CMD"0",CK,CS%(1},C3${1),C2%(1),C1%{1),C4(1) ,C6% (1) (RETURN 
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TBB PAXALLKL PKIvnot P(»T 

Do you really know what your parallttl printer port is doing to your 
output. When I got ay new printer (a DTC 3S1) I found that none oC 
the comnands that did all of those beautiful things it was supposed 
to do would work. Needless to say that was a bit of a shock I Soae 
discussion with a technical person at DTC soon revealed that a 
TRS-8fl Hod I will not put out an RSC code 27. With that I looked 
into the code at the port address fl2D8H and found that it really 
filters all codes below 26 and only puts out carriage returns and 
back spaces after going through a lookup pf the nuaber of printed 
lines. In addition there seeas to be no way to address a later 
point in the code to bypass the filter and all of that other stuff 
that I now don't need. 

Ml of you who have other printers that do work OK out of the 
parallel port have a way around that In your printer I suspect. 
Brian Devendorf suggested that I try codes above 128 which would be 
the original code plus 128. None of these work for ae either 
although I suspect that this is the way that control codes are sent 
to the EPSON et al. 

If any of you have written or have available an unfilteced parallel 
printer driver I would appreciate hearing froa you. At present I 
can get things through by sending a poke 37E8B with whatever code I 
wont but that is a bit unwieldy. 

Toa Anderson 
ANDERSON 9 SBUG-6B 



S«iid ■««al«ttaz artlclaa toi 

Editor. South Bay TRS-81 User Group 
Robert Byrd 
P.O. Box 61116 
Sunnyvale, Ca 94088 

Deadline Cor the June newsletter is 5 June 82. 

If at all possible send articles via aodea oc saved on disc/tap. 
will see that your disc or tape is returned to you. Thanks . . . 
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